home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
antmenu.rpl
< prev
next >
Wrap
Text File
|
1991-09-09
|
1KB
|
44 lines
%%HP:T(1);
@ ANTMENU by Joseph Horn
"
47A20 @ {
47A20 @ {
E1B20 @ GROB * Bink the Ant (menu icon)
F3000 @ 63 nibs long
80000 @ 8 dot rows
51000 @ 21 columns
000220 @ row 1
870410 @ row 2
CEEC10 @ row 3
4FF730 @ row 4
CFFF30 @ row 5
87DD10 @ row 6
49A200 @ row 7
49A200 @ row 8
D9D20 @ :: * menu program
CCD20 @ DOCODE * Jan Brittenson's BOFF code
A1000 @ 26 nibs long
8F B9760 @ GOSBVL =SAVPTR
8F 95324 @ GOSBVL #42359 * turns off busy annunciator
8D 34150 @ GOVLNG =GETPTRLOOP
9FF30 @ ONE
55735 @ ClrUserFlag * # -->, Clears user flag
29E20 8C3 E00 @ XLIB 968 14 * game string
29E20 8C3 100 @ SCHIP * play, then set flag 1 if user wins
9FF30 @ ONE
87735 @ TestUserFlag * # --> T/F
CB916 @ IT * if T then DO else SKIP
29E20 8C3 F00 @ XLIB 968 15 * winning screen
9FF30 @ ONE
55735 @ ClrUserFlag * # -->, Clears user flag
44193 @ ClrDAsOK * Redraw the entire LCD when program ends
B2130 @ ;
B2130 @ }
B2130 @ }
"